home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 1995 December
/
PC Answers December 1995 (disc errors).iso
/
mxc
/
intro.dir
/
00005_Script_MS for Intro
< prev
next >
Wrap
Text File
|
1995-05-04
|
5KB
|
177 lines
global fixPal, myLine, auto, ok, gSliderBar, fullMoov, csn, lem, palName, bd, gAudBlrb
global tpal, myLine2, gExtraVid, gDirMovie, gmyLineKeep, gBackColor, gForeColor, profileVid
global gVolume, gFirstTimeIn
on startMovie
if the machineType < 256 then
openXlib "XPALETTE"
set fixPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
else
openXlib "XPALETTE.dll"
set fixPal = xPalette(mNew)
end if
if myLine <> 1 then set the controller of cast 101 to false
if myLine <> 1 then set the video of cast 101 to false
set auto = 0
set ok = 3
set myLine = 1
set myLine2 = 1
set gmyLineKeep = 1
set profileVid = 0
put 201 into tpal
put the duration of cast 101 into fullMoov
set gExtraVid = 1 --NEW VAR FOR EXTRA VIDEO SEGMENTS OUTSIDE OF ASSET LIST
set csn = 6
cursor 0
end
on buttonsUp
set the castNum of sprite 8 to 27
set the castNum of sprite 11 to 51
set the castNum of sprite 12 to 52
set the castNum of sprite 13 to 53
set the castNum of sprite 14 to 54
set the castNum of sprite 15 to 55
set the castNum of sprite 16 to 56
set the castNum of sprite (myLine + 10) to (myLine + 60)
updateStage
end
on setVid
if myLine = -1 then exit
if myLine2 = myLine then exit
if myLine >= 1 then
set the castNum of sprite 24 to 26
updateStage
end if
set the locV of sprite 3 to -500
set the locV of sprite 4 to -500
set the locV of sprite 5 to -500
set the locV of sprite 6 to -500
set the locV of sprite 7 to -500
blankBut
updateStage
set the castNum of sprite 24 to myLine + 100
put the duration of cast (myLine + 100) into fullMoov
put myLine + 200 into palName
puppetPalette palName
patchPal
put myLine into myLine2
-- THE NEXT 5 LINES MAY CHANGE FROM SECTION TO SECTION
set the locV of sprite 3 to 40
set the locV of sprite 4 to 74
set the locV of sprite 5 to 115
set the locV of sprite 6 to 155
set the locV of sprite 7 to 191
set the video of cast (myLine + 100) to true
set the controller of cast (myLine + 100) to gSliderBar
updateStage
set the volume of sprite 24 to gVolume
cursor 0
end
on autoPlay
put the duration of cast (myLine + 100) into fullMoov
set the castNum of sprite 7 to 35
updateStage
set auto to 1
end
on check
global myLine, auto, csn, gExtraVid, fullMoov
if myLine > (csn + gExtraVid) then exit
if the movieTime of sprite 24 > 0 and the movieTime of sprite 24 <> fullMoov then exit
if auto = 0 and the movieTime of sprite 24 = fullMoov then
if myLine = (csn + gExtraVid) then
set the movieTime of sprite 24 to 0
exit
end if
end if
if auto = 1 and the movieRate of sprite 24 = 0 then
if the movieTime of sprite 24 = fullMoov then
if myLine = csn then
set auto = 0
set myLine = 1
set the castNum of sprite 7 to 25
buttonsUp
exit
else
set myLine to myLine + 1
buttonsUp
end if
else
if the movieTime of sprite 24 = 0 and auto = 1 then set the movieRate of sprite 24 = 1
else
set the movieRate of sprite 24 = 0
end if
end if
end if
end
on blankBut
global gAudBlrb, auto
if myLine = 1 then
set the castNum of sprite 4 to 30
set the castNum of sprite 6 to 24
if auto = 0 then
set the castNum of sprite 7 to 25
else set the castNum of sprite 7 to 35
else
if myLine > 1 and myLine < csn then
set the castNum of sprite 4 to 22
set the castNum of sprite 6 to 24
if auto = 0 then
set the castNum of sprite 7 to 25
else set the castNum of sprite 7 to 35
else
if myLine = csn then -- ON THE LAST ONE
set the castNum of sprite 4 to 22
set the castNum of sprite 6 to 40
if auto = 0 then
set the castNum of sprite 7 to 25
else set the castNum of sprite 7 to 35
else
if myLine = (csn + gExtraVid) then
set the castNum of sprite 4 to 30
set the castNum of sprite 6 to 40
set the castNum of sprite 7 to 50
else
if gAudBlrb = 1 then
set the castNum of sprite 4 to 30
set the castNum of sprite 6 to 40
set the castNum of sprite 7 to 50
end if
end if
end if
end if
end if
end
-- NOT PRESENTLY BEING USED
on flushMe
if the machineType = 256 then
OpenXlib "GLOBMEM"
Set OBJ = GLOBMEM(mNew)
OBJ(mFreeHandles, 8192)
OBJ(mFreeHandles, 8192)
OBJ(mFreeHandles, 8192)
OBJ(mDispose)
end if
end
on patchPal
fixPal(mPatchIt)
end
on stopMovie
if the machineType < 256 then
fixPal(mDispose)
closeXlib "XPALETTE"
else
fixPal(mDispose)
closeXlib "XPALETTE.dll"
end if
end